home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 November / macformat-018.iso / Comms Spectacular / Mansion9Install#1 Folder / Mansion BBS ƒ / Mansion Data / Scripts / QUOTE SCRIPT < prev    next >
Encoding:
Text File  |  1992-09-06  |  2.1 KB  |  106 lines  |  [TEXT/QED1]
  1. ;
  2. ;    SPRAY PAINT, GRAFFITI, QUOTES, OR WHATEVER WALL
  3. ;    For Mansion 8 BBS
  4. ;
  5. ;    By Mark Toland
  6. ;    Zoo System Mac BBS
  7. ;    Fidonet 290/2
  8. ;    515-279-3073  9600 v.32 v.42bis
  9. ;
  10. ;
  11. ;  •••• READ THE COMMENTS BELOW ABOUT FILE CREATION!!!!!!!!! ••••
  12. ;
  13. ; This script can be used for graffiti or quotes or whatever.
  14. MOVE @LIMIT,&250
  15. LOADUSERINFO
  16. LIMIT &250
  17. /ONE
  18. PRINT
  19. PRINT Welcome to the 'Quote Scroll'
  20. PRINT -----------------------------
  21. PRINT 
  22. PRINT Options...
  23. PRINT [A] Read the current scroll.
  24. PRINT [B] Add a Quote to the current scroll.
  25. PRINT [Q] Quit back to the BBS.
  26. PRINT 
  27. PRINT
  28. DRAW Enter your choice :
  29. INPUT 1,&0
  30. IF &0,=,Q
  31.     END
  32. ENDIF
  33. IF &0,=,A
  34.     FORWARD /READ
  35. ENDIF
  36. ;
  37. IF &0,=,B
  38.     FORWARD /WRITE
  39. ENDIF
  40. IF &0,<>,Q
  41.    REVERSE /ONE
  42. ENDIF
  43. ;
  44. ;  ••• Read the current file.  Define the filename on the 'display' line!
  45. /READ
  46. DISPLAY HD 60:Mansion BBS ƒ:Mansion Data:Misc Data:QuoteWall
  47. PRINT
  48. DRAW Press RETURN to continue :
  49. INPUT 1,&99
  50. PRINT
  51. PRINT
  52. PRINT
  53. REVERSE /ONE
  54. ;
  55. /WRITE
  56. ; ••• Add to the current file. Define the filename on the 'display' line!
  57. PRINT 
  58. PRINT You may enter 3 lines of 60 characters.
  59. PRINT Please keep it clean.  This is a public board!
  60. PRINT Press RETURN after each line. Enter your text now.
  61. INPUT 60,&20
  62. INPUT 60,&21
  63. INPUT 60,&22
  64. /TWO
  65. PRINT 
  66. PRINT Ok here is what you entered.
  67. PRINT 
  68. PRINT
  69. PRINT &20
  70. PRINT &21
  71. PRINT &22
  72. ;
  73. PRINT
  74. DRAW Do you want this to be recorded? (Y/N):
  75. INPUT 1,&99
  76. IF &99,=,N
  77.     REVERSE /ONE
  78. ENDIF
  79. IF &99,<>,Y
  80.     REVERSE /TWO
  81. ENDIF
  82. PRINT 
  83. PRINT Saving your entry...
  84. ;
  85. ;
  86. MOVE 1,&100
  87. SPACES &100
  88. MOVE Entered By :,&30
  89. CONCAT &30,&280
  90. MOVE @DATE,&32
  91. CONCAT &30,&100
  92. CONCAT &30,&32
  93. ;
  94. ; •••• YOU MUST FIRST CREATE YOUR QUOTEWALL file with a text editor.
  95. ; •••• It can contain a blank line or add header information if you wish.
  96. ; •••• IT MUST be created before you run this script!
  97. ; •••• EDIT THE FOLLOWING LINE AS TO THE LOCATION OF YOUR 'QUOTEWALL' FILE.
  98. OUTPUT HD 60:Mansion BBS ƒ:Mansion Data:Misc Data:QuoteWall
  99. APPEND &30
  100. APPEND &20
  101. APPEND &21
  102. APPEND &22
  103. APPEND ------------------------------------------------------------
  104. PRINT Thanks for adding your quote!
  105. REVERSE /ONE
  106. END